The Book of Tells/The Book of Tells.iso/vidgal.dir/00069_Script_69

Text File | 1994-09-22 | 9KB | 335 lines

on startMovie
  put "0/0" into field "time"
  set the puppet of sprite 20 to TRUE
  set the puppet of sprite 23 to TRUE
  set the puppet of sprite 24 to TRUE
  set the puppet of sprite 25 to TRUE
  set the puppet of sprite 26 to TRUE
  set the puppet of sprite 27 to TRUE
  set the puppet of sprite 28 to TRUE
  set the puppet of sprite 29 to TRUE
  set the puppet of sprite 30 to TRUE
  set the puppet of sprite 34 to TRUE
  set the puppet of sprite 43 to TRUE

  set the puppet of sprite 44 to TRUE
  set the visible of sprite 28 to FALSE
  set the visible of sprite 29 to FALSE
  set the visible of sprite 30 to FALSE
  set the visible of sprite 34 to FALSE
  set the locH of sprite 28 to -200
  set the locH of sprite 29 to -200
  set the locH of sprite 30 to -200
  set the scriptText of cast 29 = the scriptText of cast 23
  set the scriptText of cast 31 = the scriptText of cast 24
  set the scriptText of cast 32 = the scriptText of cast 25
  set the itemDelimiter = "~"

  global lineNum, class, oldInfoBox,audioClip,movieClip,movieSpriteNum, mStartTime, mStopTime

  put word 1 of field "Title" into infoBox
  put word 2 of field "Title" after infoBox
  put the number of lines in field infoBox into numberLines

  put line (numberLines - 8) of field infoBox into audioClip
  put line (numberLines - 10) of field infoBox into movieClip
  put line (numberLines - 11) of field infoBox into mStopTime
  put line (numberLines - 12) of field infoBox into mStartTime


  -- This is the sprite where the movie is
  set movieSpriteNum=7
  puppetSprite movieSpriteNum,TRUE
  unload

end startMovie


-- ************************************************
-- Name: resetMovieToStart
-- Description:
-- ************************************************
on resetMovieToStart
  puppetSprite (23), TRUE
  --  set the castNum of sprite (23) to 138
  --  updateStage
  --
  --
  --  startTimer
  --  repeat while the timer < 5
  --  end repeat
  --
  --
  --  set the castNum of sprite (23) to 139
  --  updateStage
  --
  --  startTimer
  --  repeat while the timer < 5
  --  end repeat
  --
  set the castNum of sprite (23) to 140
  updateStage

  startTimer
  repeat while the timer < 5
  end repeat

  --    turn off pause and play

  puppetSprite (20), TRUE
  set the castNum of sprite (20) to 125
  updateStage

  puppetSprite (24), TRUE
  set the castNum of sprite (24) to 121
  updateStage

  global movieSpriteNum,mStartTime,moving
  set moving=FALSE

  set the movieRate of sprite movieSpriteNum to 0
  set the movieTime of sprite movieSpriteNum = mStartTime

  set the loch of sprite 46 to  -100
  set the locv of sprite 46 to  -100
  set the loch of sprite 47 to  -100
  set the locv of sprite 47 to  -100

end resetMovieToStart


-- ************************************************
-- Name: divide
-- Description:
-- ************************************************
on divide a,b
  if b<>0 then
    return integer( ((a+0.0) / (b+0.0)) - 0.49 )
  else
    return 0
  end if
end divide



-- ************************************************
-- Name: setTime
-- Description:
-- ************************************************
on setTime
  global movieSpriteNum,mStartTime,mStopTime
  set tmpc=string(divide( ((the movieTime of sprite movieSpriteNum)-mStartTime),12 )+1 )
  set tmpm=string(divide( (mStopTime-mStartTime),12)+1)
  --  put (the movieTime of sprite movieSpriteNum)-mStartTime&"/"&(mStopTime-mStartTime)&" --"&tmps into field "time"
  put tmpc&"/"&tmpm into field "time"
  --  put the movieTime of sprite movieSpriteNum into field "test"
end setTime



-- ******************************************************
-- Name: buttonAction
-- Description:
--
-- Example: buttonAction(TRUE)
-- ******************************************************
on buttonAction silent

  global activated
  set activated = TRUE

  if not(silent=TRUE) then sound playfile 1, "MouseDown"

  set ButtonUpName = the name of cast (the castnum of sprite the ClickOn)


  set tmp1=ButtonUpName&"1"
  set tmp2=ButtonUpName&"2"
  set tmp3=ButtonUpName&"3"
  set ButtonDownName = ButtonUpName&"3"

  set the castnum of sprite the ClickOn = the number of cast tmp1
  updatestage
  startTimer
  repeat while the timer < 5
  end repeat

  set the castnum of sprite the ClickOn = the number of cast tmp2
  updatestage
  startTimer
  repeat while the timer < 5
  end repeat

  set the castnum of sprite the ClickOn = the number of cast tmp3
  updatestage
  startTimer
  repeat while the timer < 5
  end repeat

  set buttonOn=TRUE
  repeat while the stillDown = TRUE

    if rollover (the clickOn) = TRUE then
      if buttonOn=FALSE then
        set buttonON=TRUE
        set the castnum of sprite the ClickOn = the number of cast tmp1
        updatestage
        startTimer
        repeat while the timer < 5
        end repeat

        set the castnum of sprite the ClickOn = the number of cast tmp2
        updatestage
        startTimer
        repeat while the timer < 5
        end repeat

        set the castnum of sprite the ClickOn = the number of cast tmp3
        updatestage
        startTimer
        repeat while the timer < 5
        end repeat
      else

        set activated = TRUE
        set the castnum of sprite the ClickOn = the number of cast ButtonDownName
        updatestage
      end if

    else
      set buttonOn=FALSE
      set activated = FALSE
      set the castnum of sprite the ClickOn = the number of cast ButtonUpName
      updatestage

    end if

  end repeat

  if activated = FALSE then exit

  set the castnum of sprite the ClickOn = the number of cast ButtonUpName
  updatestage

end buttonAction


-- ******************************************************
-- Name: menuSelect
-- Description: Checks the position of the mouse in a text field
-- and highlights the current line.  Pass it the number of the
-- text field.  The variable lineNum is used internally to
-- stop looping to prevent the highlight from flashing and can
-- also be used externally to pass where the mouse was when the
-- user released the mouse button.
--
-- Example: menuSelect {castNumber)
-- ******************************************************


on menuSelect castNumber

  global lineNum
  global bottoma
  global topa

  set lineNum = 0
  set hiliteSet = 0
  set mousePos = 0

  -- IT IS NECESSARY TO Stop THE MOVIE DURING THIS PROCEDURE

  set the loch of sprite 46 to  -100
  set the locv of sprite 46 to  -100
  set the loch of sprite 47 to  -100
  set the locv of sprite 47 to  -100

  --
  --turn off play
  --
  set the castNum of sprite (24) to 121
  set the castnum of sprite 23 to 140
  set the castNum of sprite (20) to 125

  updateStage

  --  stop action
  global movieSpriteNum,moving
  set moving=FALSE
  set the movieRate of sprite movieSpriteNum to 0





  repeat while the stillDown

    if the mouseCast = the  number of cast (castNumber) then


      if lineNum = (the mouseLine) and the mouseV = mousePos then

        nothing

      else if the mouseLine = -1 then
        set the hilite of field (castNumber) to 0
        set lineNum = 0


        --     else if the mouseH > 680 then
        --       set the hilite of field (castNumber) to 0
        --       set lineNum = 0
        --
        --     else if the mouseH < 5 then
        --       set the hilite of field (castNumber) to 0
        --       set lineNum = (the mouseLine)
        --
        --    else if the mouseV < 13 then
        --      set the hilite of field (castNumber) to 0
        --      set lineNum = 0
        --
        --    else if the mouseV > 400 then
        --      set the hilite of field (castNumber) to 0
        --      set lineNum = 0
        --

      else
        hilite line (the mouseLine) of field (castNumber)
        set lineNum = (the mouseLine)
        set mousePos = the mouseV

      end if

    else
      set the hilite of field (castNumber) to 0
      set lineNum = 0

    end if

  end repeat

end menuSelect

-- ******************************************************
-- Name: putHelp
-- Description:
--
-- Example:
-- ******************************************************
on putHelp castMemName,spriteNum
  set hInstance = the mouseh
  set vInstance = the mousev
  set the castNum of sprite spriteNum to the number of cast castMemName
  set the loch of sprite spriteNum to hInstance
  set the locv of sprite spriteNum to vInstance
  updateStage

  repeat while the stilldown

  end repeat

  set the loch of sprite spriteNum to -300
  set the loch of sprite spriteNum to -300
  updateStage

end putHelp